home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbpictxt.dxr / 00040_Tool Box.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  2.4 KB  |  101 lines
  1. on SetArtMembers LibName
  2.   X = the number of castMembers of castLib LibName
  3.   repeat with rc = 1 to the number of castMembers of castLib LibName
  4.     xMember = member(rc, LibName)
  5.     if member(xMember).type = #field then
  6.       member(xMember).boxType = #fixed
  7.       member(xMember).editable = 0
  8.     end if
  9.   end repeat
  10.   beep(2)
  11. end
  12.  
  13. on createDummyText
  14.   xText = EMPTY
  15.   repeat with rc = 1 to 555
  16.     xText = xText && rc && "jeep"
  17.   end repeat
  18.   member("jjj", 1).text = xText
  19. end
  20.  
  21. on jtxtra
  22.   Jat("put mMessagelist(xtra" && QUOTE & "cc" & QUOTE & ")")
  23. end
  24.  
  25. on tellloc startsprite, endSprite
  26.   if voidp(endSprite) then
  27.     endSprite = startsprite
  28.   end if
  29.   repeat with rc = startsprite to endSprite
  30.     if the memberNum of sprite rc = 0 then
  31.       put "‚Ä¢‚Ä¢ Blank"
  32.       next repeat
  33.     end if
  34.     put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  35.   end repeat
  36. end
  37.  
  38. on tellrect startsprite, endSprite
  39.   if voidp(endSprite) then
  40.     endSprite = startsprite
  41.   end if
  42.   repeat with rc = startsprite to endSprite
  43.     if the memberNum of sprite rc = 0 then
  44.       put "‚Ä¢‚Ä¢ Blank"
  45.       next repeat
  46.     end if
  47.     put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  48.   end repeat
  49. end
  50.  
  51. on move
  52.   set the rect of sprite 2 to rect(0, 0, 567, 18)
  53.   set the rect of sprite 3 to rect(0, 0, 567, 18)
  54.   updateStage()
  55.   put the rect of sprite 2, the rect of sprite 3
  56. end
  57.  
  58. on Jat p1, p2, p3, p4, p5, p6
  59.   put p1, p2, p3, p4, p5, p6
  60. end
  61.  
  62. on Rename sm, em
  63.   fc = 1
  64.   repeat with rc = sm to em
  65.     member(rc, "Text").name = "Resp" & rc & "Textdd"
  66.     fc = fc + 1
  67.   end repeat
  68. end
  69.  
  70. on space xSprite
  71.   xText = member(171, "Text").text
  72.   repeat with rc = 1 to the number of chars in xText
  73.     if char rc to rc + 1 of xText = "  " then
  74.       beginSpace = rc
  75.       xChar = rc
  76.       repeat while char rc of xText = " "
  77.         rc = rc + 1
  78.       end repeat
  79.       endSpace = rc - 1
  80.     end if
  81.   end repeat
  82.   median = beginSpace + integer((endSpace - beginSpace) / 2)
  83.   put median, charPosToLoc(member(171, "Text"), median)
  84. end
  85.  
  86. on RenumberFileNames
  87.   put "Renaming files..."
  88.   filePath = the pathName & "Sounds:Spanish:"
  89.   ext = ".822"
  90.   repeat with rc = 1 to 150
  91.     xNumber = string(rc)
  92.     put chars("000", 1, 3 - length(xNumber)) before filePath
  93.     newFileName = "120PS" & xNumber & ext
  94.     xNumberedfile = filePath & getNthFileNameInFolder(filePath, rc)
  95.     RenameFile(xNumberedfile, filePath & newFileName)
  96.   end repeat
  97.   put xNumberedfile, newFileName
  98.   beep(2)
  99.   put "done"
  100. end
  101.